home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 February / EnigmA AMIGA RUN 04 (1996)(G.R. Edizioni)(IT)[!][issue 1996-02][Skylink CD III].iso / earcd / e / ddmoduls.lha / dd_Modules / dd_graphics / dd_maxTextLen.e next >
Text File  |  1995-10-28  |  307b  |  13 lines
  1. OPT MODULE
  2.  
  3. MODULE 'graphics/text'
  4. MODULE 'graphics/rastport'
  5.  
  6. EXPORT PROC maxTextLen(stringlist:PTR TO LONG,textfont:PTR TO textfont)
  7.   DEF rastport:rastport,x,max=0
  8.   InitRastPort(rastport)
  9.   SetFont(rastport,textfont)
  10.   ForAll({x},stringlist,`max:=Max(max,TextLength(rastport,x,StrLen(x))))
  11. ENDPROC max
  12.  
  13.